home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART XMAS CARD.bas < prev    next >
BASIC Source File  |  2012-02-16  |  6KB  |  205 lines
  1. 10  SPEED= 255
  2. 20  HOME 
  3. 30  VTAB 7
  4. 40  PRINT "   CCC H H RRR I SSS TTT MMMMM AAA SSS"
  5. 50  PRINT "   C   H H R R I S    T  M M M A A S  "
  6. 60  PRINT "   C   HHH RRR I SSS  T  M M M AAA SSS"
  7. 70  PRINT "   C   H H RR  I   S  T  M M M A A   S"
  8. 80  PRINT "   CCC H H R R I SSS  T  M M M A A SSS"
  9. 90  PRINT " "
  10. 100  PRINT " "
  11. 110  PRINT "            CCC AAA RRR DD "
  12. 120  PRINT "            C   A A R R D D"
  13. 130  PRINT "            C   AAA RRR D D"
  14. 140  PRINT "            C   A A RR  D D"
  15. 150  PRINT "            CCC A A R R DD "
  16. 160  VTAB 23
  17. 170  HTAB 23
  18. 180  SPEED= 25
  19. 190  GOSUB 2020
  20. 200  PRINT "BY: PETER ZALOGA"
  21. 210  FOR T = 1 TO 3500: NEXT T
  22. 220  REM  BACK GROUND COLOR
  23. 230  GR 
  24. 240  COLOR= 7
  25. 250  FOR Y = 0 TO 30
  26. 260  HLIN 0,39 AT Y
  27. 270  NEXT Y
  28. 280  COLOR= 15
  29. 290  FOR W = 30 TO 39
  30. 300  HLIN 0,39 AT W
  31. 310  NEXT W
  32. 320  FOR T = 1 TO 1500: NEXT T: REM  TIME DELAY
  33. 330  GOSUB 2020
  34. 340  REM  MOVEMENT MAN
  35. 350 A = 39
  36. 360 B = A +1:C = B +1:D = C +1:E = D +1:F = E +1:G = F +1
  37. 370  IF B >39  THEN B = 39
  38. 380  IF C >39  THEN C = 39
  39. 390  IF D >39  THEN D = 39
  40. 400  IF E >39  THEN E = 39
  41. 410  IF G >39  THEN G = 39
  42. 420  IF F >39  THEN F = 39
  43. 430  COLOR= 12
  44. 440  GOSUB 1790
  45. 450 A = A -1
  46. 460  IF A >19  THEN  GOTO 360
  47. 470  GOSUB 2020
  48. 480  REM  DROP BALL
  49. 490 X = 25
  50. 500 U = 24
  51. 510  COLOR= 12: PLOT 20,X: COLOR= 7: PLOT 20,U
  52. 520 X = X +1:U = U +1
  53. 530  COLOR= 12: PLOT 20,X: COLOR= 7: PLOT 20,U
  54. 540  COLOR= 1: PLOT 21,26: COLOR= 7: PLOT 21,25
  55. 550  FOR M = 1 TO 50:T = T +M: NEXT M
  56. 560  IF X <29  THEN  GOTO 520
  57. 570  COLOR= 7: PLOT 20,29
  58. 580  COLOR= 1: PLOT 21,25: COLOR= 7: PLOT 21,26
  59. 590  REM  RE-MOVING MAN
  60. 600  GOSUB 2020:G = 26
  61. 610 F = G -1:E = G -2:D = G -3:C = G -4:B = G -5:A = G -6
  62. 620  IF A < = 0  THEN A = 0
  63. 630  GOSUB 1920
  64. 640  GOSUB 1810
  65. 650 G = G -1
  66. 660  IF G >0  THEN  GOTO 610
  67. 670  COLOR= 7: VLIN 29,21 AT 0
  68. 680  FOR T = 1 TO 1000: NEXT T: REM  TIME DELAY
  69. 690  GOSUB 2040
  70. 700  REM  TREE CONSTRUCTION
  71. 710 X = 29
  72. 720  FOR Z = 1 TO 29
  73. 730  COLOR= 12
  74. 740 J = 20:K = 20
  75. 750 S = 29:L = 29
  76. 760  GOTO 800
  77. 770 X = X +1:J = J -1:K = K +1
  78. 780  IF X < = 10  THEN  GOSUB 1710
  79. 790 S = S -1:L = L -1
  80. 800  HLIN J,K AT X
  81. 810  IF X > = 29  THEN  COLOR= 15
  82. 820  IF X > = 29  THEN X = 29
  83. 830  IF K < = 37 GOTO 770
  84. 840 X = 29 -Z
  85. 850  NEXT Z
  86. 860  FOR T = 1 TO 1000: NEXT T: REM  TIME DELAY
  87. 870  GOSUB 2040
  88. 880  REM  MOVING MAN BACK
  89. 890  FOR Q = 1 TO 200:P = P +Q: NEXT Q
  90. 900 A = 0
  91. 910 B = A -1:C = A -2:D = A -3:E = A -4:F = A -5:G = A -6
  92. 920  GOSUB 1920
  93. 930  COLOR= 13
  94. 940  GOSUB 1790
  95. 950 A = A +1
  96. 960  IF A <8  THEN  GOTO 910
  97. 970  FOR T = 1 TO 1000: NEXT T: REM  TIME DELAY
  98. 980  REM  MOVING YELLOW BALL
  99. 990  FOR Q = 1 TO 150:S = S +Q: NEXT Q: REM  TIMERUN
  100. 1000 V = 24:H = 9
  101. 1010 X = 25:Y = 8
  102. 1020 C = 7
  103. 1030  GOTO 1050
  104. 1040 V = V -2:H = H +1
  105. 1050  COLOR= 13: PLOT H,V
  106. 1060  COLOR= 7: PLOT 7,25
  107. 1070  COLOR= 1: PLOT 6,24: COLOR= 7: PLOT 6,25
  108. 1080  IF V < = 20  THEN C = 12
  109. 1090  FOR M = 1 TO 100:N = N +M: NEXT M
  110. 1100  COLOR= C: PLOT H,V
  111. 1110  IF V >2  THEN  GOTO 1040
  112. 1120  COLOR= 13: PLOT 20,1: COLOR= 12: PLOT 20,2
  113. 1130  COLOR= 1: PLOT 6,25: COLOR= 7: PLOT 6,24
  114. 1140  REM  COLOR LIGHTS
  115. 1150  FOR T = 1 TO 1500: NEXT T
  116. 1160 A = 22:B = 0:HUE = 0
  117. 1170 Z = 0
  118. 1180 X = A -2:Y = B +2
  119. 1190  COLOR= HUE
  120. 1200  PLOT X,Y
  121. 1210  IF X = 20  THEN  GOTO 1350
  122. 1220  FOR R = 1 TO Z
  123. 1230 HUE = HUE +1
  124. 1240  IF HUE = 4  THEN HUE = 5
  125. 1250  IF X = 20  THEN  GOTO 1350
  126. 1260  IF HUE = 12  THEN HUE = 13
  127. 1270  FOR R = 1 TO Z
  128. 1280  IF HUE >15  THEN HUE = 0
  129. 1290 HUE = HUE +1
  130. 1300  COLOR= HUE
  131. 1310 X = X +4
  132. 1320  PLOT X,Y
  133. 1330  NEXT R
  134. 1340  FOR T = 1 TO 100: NEXT T
  135. 1350 Z = Z +1
  136. 1360 A = A -2:B = B +2:X = 0:Y = 0
  137. 1370  IF B < = 18  THEN  GOTO 1180
  138. 1380  GOSUB 2040
  139. 1390  REM  MERRY XMAS
  140. 1400  COLOR= 9
  141. 1410  REM  M
  142. 1420  VLIN 32,36 AT 0: HLIN 1,4 AT 32: VLIN 33,36 AT 2: VLIN 33,36 AT 4
  143. 1430  GOSUB 1990
  144. 1440  VLIN 32,36 AT 6: HLIN 7,8 AT 32: PLOT 7,34: HLIN 7,8 AT 36
  145. 1450  GOSUB 1990
  146. 1460  VLIN 32,36 AT 10: HLIN 11,12 AT 32: VLIN 32,34 AT 12: VLIN 34,35 AT 11: PLOT 12,36
  147. 1470  GOSUB 1990
  148. 1480  VLIN 32,36 AT 14: HLIN 15,16 AT 32: VLIN 33,34 AT 16: VLIN 34,35 AT 15: PLOT 16,36
  149. 1490  GOSUB 1990
  150. 1500  VLIN 32,33 AT 18: VLIN 34,36 AT 19: VLIN 32,33 AT 20
  151. 1510  GOSUB 1990
  152. 1520  VLIN 32,33 AT 23: VLIN 35,36 AT 23: PLOT 24,34: VLIN 32,33 AT 25: VLIN 35,36 AT 25
  153. 1530  GOSUB 1990
  154. 1540  VLIN 32,36 AT 27: HLIN 28,31 AT 32: VLIN 33,36 AT 29: VLIN 33,36 AT 31
  155. 1550  GOSUB 1990
  156. 1560  VLIN 32,36 AT 33: PLOT 34,32: PLOT 34,34: VLIN 32,36 AT 35
  157. 1570  GOSUB 1990
  158. 1580  HLIN 37,39 AT 32: VLIN 33,34 AT 37: HLIN 38,39 AT 34: VLIN 35,36 AT 39: HLIN 37,38 AT 36
  159. 1590  GOSUB 1990
  160. 1600  HOME 
  161. 1610  INPUT "TO RUN PROGRAM AGAIN, PRESS #0 THEN THE RETURN KEY";G
  162. 1620  SPEED= 255
  163. 1630  IF G = 0  THEN  GOTO 1650
  164. 1640  GOTO 1600
  165. 1650  TEXT 
  166. 1660  RUN 
  167. 1670  TEXT 
  168. 1680  HOME 
  169. 1690  LIST 1140,599
  170. 1700  END 
  171. 1710  REM  TREE BOTTOM&TRUCK
  172. 1720  COLOR= 7
  173. 1730  HLIN 2,18 AT S
  174. 1740  HLIN 22,38 AT S
  175. 1750  COLOR= 8
  176. 1760  HLIN 19,21 AT L
  177. 1770  COLOR= 12
  178. 1780  RETURN 
  179. 1790  REM  MAN
  180. 1800  PLOT A,25
  181. 1810  COLOR= 1: PLOT B,25
  182. 1820  PLOT C,25: PLOT C,22
  183. 1830  COLOR= 7: PLOT E,29
  184. 1840  COLOR= 1: PLOT D,29
  185. 1850  VLIN 28,25 AT D: COLOR= 11: VLIN 24,23 AT D: COLOR= 1: VLIN 22,21 AT D
  186. 1860  COLOR= 7: PLOT E,28: COLOR= 1: VLIN 27,25 AT E: COLOR= 11: VLIN 24,23 AT E
  187. 1870  COLOR= 1: VLIN 22,21 AT E
  188. 1880  COLOR= 7: PLOT F,28
  189. 1890  COLOR= 1: VLIN 28,25 AT F: COLOR= 11: VLIN 24,23 AT F: COLOR= 1: VLIN 22,21 AT F: PLOT F,29
  190. 1900  COLOR= 7: VLIN 29,21 AT G
  191. 1910  RETURN 
  192. 1920  IF B < = 0  THEN B = 0
  193. 1930  IF C < = 0  THEN C = 0
  194. 1940  IF D < = 0  THEN D = 0
  195. 1950  IF E < = 0  THEN E = 0
  196. 1960  IF F < = 0  THEN F = 0
  197. 1970  IF G < = 0  THEN G = 0
  198. 1980  RETURN 
  199. 1990  REM  TIME DELAY
  200. 2000  FOR T = 1 TO 500: NEXT T
  201. 2010  RETURN 
  202. 2020  FOR T = 1 TO 1000: NEXT T
  203. 2030  RETURN 
  204. 2040  FOR T = 1 TO 2000: NEXT T
  205. 2050  RETURN